home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.0 / Video Toaster v4.0.iso / arexx / modeler / halve.lwm < prev    next >
Text File  |  1993-12-13  |  701b  |  37 lines
  1. /* CMD: Halve.lwm
  2.  * Scale Object to half (twice) its size around its center
  3.  * By Arnie Cachelin © 1993 NewTek Inc.
  4.  * Sun Aug  8 20:43:00 1993
  5.  */
  6.  
  7.   arg size
  8.   if size="" then size='HALF'
  9.   else size='TWICE'
  10.     mxx="LWModelerARexx.port"
  11.     signal on error
  12.     signal on syntax
  13.     mxx_add = addlib(mxx,0)
  14.  
  15.     call main
  16.  
  17.     if (mxx_add) then call remlib(mxx)
  18.     exit
  19.  
  20.     syntax:
  21.     error:
  22.     t=Notify(1,'!Rexx Script Error','@'ErrorText(rc),'Line 'SIGL)
  23.     if (mxx_add) then call remlib(mxx)
  24.     exit
  25.  
  26. /*        ~~*~~*~~*~~*~~*~~*~~*~~*~~       */
  27.  
  28. main:
  29.  
  30. box=boundingbox()
  31. parse var box n x1 x2 y1 y2 z1 z2
  32. cx=(x2+x1)/2
  33. cy=(y2+y1)/2
  34. cz=(z2+z1)/2
  35. if size='HALF' then call scale(0.5,cx cy cz)
  36. else call scale(2,cx cy cz)
  37. return